#!/usr/bin/perl

use XML::Parser;

$xp = new XML::Parser();
$xp->setHandlers(Start => \&tag, End => \&tag);
$xp->parsefile($ARGV[0]);

sub tag {
  my %traducciones = (mueble => "forniture",  micasa => "myhouse", habitacion=>"room", puerta=>"door");
  my ($expat, $etiqueta) = @_;
  print $traducciones{lc($etiqueta)}."\n";
}
